<%   
	dim connstr
	dim datapath   
    dataPath=server.mappath("vi-cndata/vi-cn.mdb")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dataPath
%>